home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
cubezip.zip
/
CUBESYS.INC
< prev
next >
Wrap
Text File
|
1991-10-15
|
24KB
|
706 lines
;┌──────────────────────────────────────────────────────────────────────────┐
;│ CUBESYS.INC - Include file for the Cube Solver │
;└──────────────────────────────────────────────────────────────────────────┘
BRIGHT_ON_BLACK equ 0Fh
CYAN_ON_BLUE equ 13h
MAGENTA_ON_BLUE equ 15h
BRIGHT_ON_BLUE equ 1Fh
BRIGHT_ON_MAGENTA equ 5Fh
DIM_ON_MAGENTA equ 57h
;────────────────────────────────────────────────────────────────────────────
LINE_LENGTH equ 80 ; chars
LINE_COUNT equ 25 ; lines
;────────────────────────────────────────────────────────────────────────────
STACK_DEPTH equ 512
;────────────────────────────────────────────────────────────────────────────
InvocationCursor dw ? ; the caller's initial cursor loc.
ScreenSegment dw 0B800h ; our default display seg
ExitingMessage dw OFFSET NormalTermination
OldTimerVector dd ?
Count1 dw 0
Count2 dw 0
TickCount1 dw 0
TickCount2 dw 0
SingleStepping db TRUE
Animation db TRUE
Sound db FALSE
PausePoint dw 00FEh ; no pause code
;────────────────────────────────────────────────────────────────────────────
Period dw 0 ; Sound system symbols
DeltaFreq dw 0
Duration dw 0
PhasorPosition dw 0
;────────────────────────────────────────────────────────────────────────────
ColorChart db 3 dup (MAGENTA_ON_BLUE)
db 2 dup (BRIGHT_ON_BLUE)
db 13 dup (CYAN_ON_BLUE)
db 2 dup (BRIGHT_ON_BLUE)
db 5 dup (MAGENTA_ON_BLUE)
;────────────────────────────────────────────────────────────────────────────
ScreenOffset dw (6*80+ 3)*2, (6*80+10)*2, (6*80+17)*2, (6*80+24)*2
dw (6*80+31)*2, (6*80+38)*2, (6*80+45)*2, (6*80+52)*2
dw (6*80+59)*2
;────────────────────────────────────────────────────────────────────────────
NumericsPosition dw (18*80+ 6)*2,(18*80+13)*2,(18*80+20)*2,(18*80+27)*2
dw (18*80+34)*2,(18*80+41)*2,(18*80+48)*2,(18*80+55)*2
dw (18*80+62)*2
;────────────────────────────────────────────────────────────────────────────
CharacterTable dw 0B2B2h, 0, 020DBh, 0DCDCh, 0DFDFh, 0DB20h, 0, 0B0B0h
;════════════════════════════════════════════════════════════════════════════
SetupTheSystem:
;┌──────────────────────────────────────────────────────────────────────────┐
;│ Get everything up and running ... │
;└──────────────────────────────────────────────────────────────────────────┘
call SaveScreenAndCursor
Hook TIMER_INT, OldTimerVector, CountTicks
call AllocateMemoryRegions
jmp DisplayTheScreen ; EXIT THROUGH ...
Exit:
;┌──────────────────────────────────────────────────────────────────────────┐
;│ Restore Timer vector, user's screen, and exit to DOS ... │
;└──────────────────────────────────────────────────────────────────────────┘
mov dx, WORD PTR OldTimerVector
mov ds, WORD PTR OldTimerVector+2
mov ax, DOS_SET_VECTOR*256 + TIMER_INT
int DOS_FUNC
pupop ds, cs
;────────────────────────────────────────────────────────────────────────────
mov cx, SCREEN_LENGTH / 2
mov si, OFFSET InitScreenBuffer
zero di
mov es, ScreenSegment
rep movsw
;────────────────────────────────────────────────────────────────────────────
mov ax, SET_CURSOR_POS*256
zero bh ; (screen page 0)
mov dx, InvocationCursor
int VIDEO_IO
;────────────────────────────────────────────────────────────────────────────
mov dx, ExitingMessage ; print the standard message
mov ah, DOS_PRINTSTRING
int DOS_FUNC
int COM_TERMINATE
;****************************************************************************
DisplayTheScreen:
;┌──────────────────────────────────────────────────────────────────────────┐
;│ Blast the thrasher's data screen into screen │
;│ memory then fixup the colorizing attributes. │
;└──────────────────────────────────────────────────────────────────────────┘
zero bx ; init the line counter
mov si, OFFSET ScreenDisplay
zero di
mov es, ScreenSegment
;────────────────────────────────────────────────────────────────────────────
MoveALine: mov ah, ColorChart[bx]
mov cx, LINE_LENGTH
MoveIt: lodsb
stosw
loop MoveIt
inc bx
cmp bx, LINE_COUNT
jb MoveALine
;┌──────────────────────────────────────────────────────────────────────────┐
;│ Color the top and bottom text lines │
;└──────────────────────────────────────────────────────────────────────────┘
mov al, BRIGHT_ON_MAGENTA
mov cx, 80-2
zero di
;────────────────────────────────────────────────────────────────────────────
WhiteWash: mov es:[di+( 1*80+1)*2+1], al
mov es:[di+(21*80+1)*2+1], al
mov es:[di+(22*80+1)*2+1], al
mov es:[di+(23*80+1)*2+1], al
add di, 2
loop WhiteWash
;────────────────────────────────────────────────────────────────────────────
mov di, (21*80+30)*2
call ColorSix
mov di, (21*80+60)*2
call ColorSix
;────────────────────────────────────────────────────────────────────────────
call PaintLowerRight
;────────────────────────────────────────────────────────────────────────────
call BlankEmAll
mov di, (6*80+71)*2
call BlankAtDI
;────────────────────────────────────────────────────────────────────────────
pupop es, cs
jmp RefreshScreen ; return through ...
BlankEmAll:
;╒══════════════════════════════════════════════════════════════════════════╕
;│ Blanks all of the piece regions │
;└──────────────────────────────────────────────────────────────────────────┘
push bx
zero bx
BlankOne: call BlankCurrentPiece
add bx, 2
cmp bx, 9*2
jb BlankOne
pop bx
ret
ColorSix:
;╒══════════════════════════════════════════════════════════════════════════╕
;│ Finishes coloring the display screen by dropping four colors │
;└──────────────────────────────────────────────────────────────────────────┘
mov ax, MAGENTA_ON_BLUE * 256 + " "
mov cx, 3
ColorTwo: stosw
stosw
add di, (80-2)*2
loop ColorTwo
ret
PaintLowerRight:
;╒══════════════════════════════════════════════════════════════════════════╕
;│ Re-Paints the lower right of the screen which was overcolored ... │
;└──────────────────────────────────────────────────────────────────────────┘
mov al, BRIGHT_ON_BLUE
mov di, (20*80+62)*2+1
call Paintshort
mov al, MAGENTA_ON_BLUE
mov di, (21*80+62)*2+1
PaintShort: mov cx, 17
PaintAttrib: stosb
inc di
loop PaintAttrib
ret
BlankCurrentPiece:
;╒══════════════════════════════════════════════════════════════════════════╕
;│ This routine blanks the current branch number │
;└──────────────────────────────────────────────────────────────────────────┘
mov di, ScreenOffset[bx] ; get the upper left corner
;────────────────────────────────────────────────────────────────────────────
BlankAtDI: push es
mov es, ScreenSegment
bool Animation
iffalse BlankNumbers
;────────────────────────────────────────────────────────────────────────────
mov cx, 3 ; we have three levels
BlankOneLevel: push cx
mov cx, 3 ; each level has three lines
BlankOneLine: push cx
mov ax, BRIGHT_ON_BLACK + " "
mov cx, 6 ; each line has three blocks
rep stosw
;────────────────────────────────────────────────────────────────────────────
add di, (80-6)*2 ; drop to next line
pop cx
loop BlankOneLine
;────────────────────────────────────────────────────────────────────────────
add di, 160 ; skip one line
pop cx
loop BlankOneLevel
;────────────────────────────────────────────────────────────────────────────
BlankNumbers: mov di, NumericsPosition[bx]
mov BYTE PTR es:[di], " "
mov BYTE PTR es:[di-2], " "
;────────────────────────────────────────────────────────────────────────────
pop es
ret
ShowAllPieces:
;╒══════════════════════════════════════════════════════════════════════════╕
;│ This routine updates all the pieces. It's called when the puzzle │
;│ has been solved. most recently succesfully ... │
;└──────────────────────────────────────────────────────────────────────────┘
call BlankEmAll
push bx
push dx
mov dx, bx
zero bx
ShowNextPiece: call GetPieceOffset
call ShowItNow
add bx, 2
cmp bx, dx
jbe ShowNextPiece
pop dx
pop bx
ret
ShowCurrentPiece:
;╒══════════════════════════════════════════════════════════════════════════╕
;│ This routine shows the piece most recently succesfully ... │
;│ Called with BX = CurrentPiece*2 (bx, dx, bp preserved) │
;└──────────────────────────────────────────────────────────────────────────┘
bool Animation
iffalse ShowNumbers
;────────────────────────────────────────────────────────────────────────────
ShowItNow: mov di, ScreenOffset[bx] ; get the upper left corner
mov si, MergedPieceOffset
call DisplayPiece
call ShowCurrentPuzzle
ShowNumbers: jmp ShowNumerics
ShowCurrentPuzzle:
;╒══════════════════════════════════════════════════════════════════════════╕
;│ This routine shows the current pieces placed ino the puzzle ... │
;│ (bx, dx, bp preserved) │
;└──────────────────────────────────────────────────────────────────────────┘
mov di, (6*80+71)*2
mov si, bp
DisplayPiece:
;┌──────────────────────────────────────────────────────────────────────────┐
;│ This routine displays a 27-byte piece data-structure at screen loc DI. │
;└──────────────────────────────────────────────────────────────────────────┘
push bx
push es
mov es, ScreenSegment
;────────────────────────────────────────────────────────────────────────────
mov cx, 3 ; we have three levels
CvrtOneLevel: push cx
mov cx, 3 ; each level has three lines
CvrtOneLine: push cx
mov cx, 3 ; each line has three blocks
CvrtOneBlock: lodsb ; get the next byte
cmp al, 0
jne NotEmpty
mov bx, 02020h
jmp Stuffit
;────────────────────────────────────────────────────────────────────────────
NotEmpty: cmp al, 0FFh
jne NotFull
mov bx, 0DBDBh
jmp Stuffit
;────────────────────────────────────────────────────────────────────────────
NotFull: and ax, 0007h ; get just the bottom 3 bits
mov bx, ax
double bx
mov bx, CharacterTable[bx]
;────────────────────────────────────────────────────────────────────────────
Stuffit: mov ah, BRIGHT_ON_BLACK
mov al, bl
stosw
mov al, bh
stosw
loop CvrtOneBlock
;────────────────────────────────────────────────────────────────────────────
add di, (80-6)*2 ; drop to next line
pop cx
loop CvrtOneLine
;────────────────────────────────────────────────────────────────────────────
add di, 160 ; skip one line
pop cx
loop CvrtOneLevel
;────────────────────────────────────────────────────────────────────────────
pop es
pop bx
ret
ShowNumerics:
;╒══════════════════════════════════════════════════════════════════════════╕
;│ Show the current piece and the total number of moves │
;└──────────────────────────────────────────────────────────────────────────┘
push bx
push dx
push bp
push es
mov es, ScreenSegment
mov ax, CurrentTreePosition[bx] ; get current pos
inc ax
mov di, NumericsPosition[bx]
cmp ax, 10
jae DoTheNumber
mov BYTE PTR es:[di-2], " " ; less than 10, so blank 10's place
DoTheNumber: call DoNumeric
;────────────────────────────────────────────────────────────────────────────
; Now update the total move display
;────────────────────────────────────────────────────────────────────────────
mov ax, Count2
mov bx, Count1
mov di, (19*80+78)*2
call PlaceLargeNumb
;────────────────────────────────────────────────────────────────────────────
mov ax, TickCount2
mov bx, TickCount1
mov di, (20*80+78)*2
call PlaceLargeNumb
;────────────────────────────────────────────────────────────────────────────
pop es
pop bp
pop dx
pop bx
JustReturn: ret
PlaceLargeNumb:
;╒══════════════════════════════════════════════════════════════════════════╕
;│ At [di] place ax,bx │
;└──────────────────────────────────────────────────────────────────────────┘
mov cx, 10 ; divisor
mov bp, 1
;────────────────────────────────────────────────────────────────────────────
DoAnotherDig: zero dx ; clear the high side
div cx ; divide high half by ten
xchg ax, bx
div cx
xchg ax, bx
add dl, "0" ; turn it into ASCII
PlaceChar: mov es:[di], dl ; stuff an ascii digit
sub di, 2 ; back up 1 byte to the left
mov dx, ax ; are we all done ?
or dx, bx
jz JustReturn
;────────────────────────────────────────────────────────────────────────────
CheckComma: inc bp
cmp bp, 4
jb DoAnotherDig
mov dl, ","
zero bp
jmp PlaceChar
ShowImageCount:
;╒══════════════════════════════════════════════════════════════════════════╕
;│ Show the number of images for the current piece ... │
;└──────────────────────────────────────────────────────────────────────────┘
mov ax, PieceImageCounts[bx] ; get the count
mov di, NumericsPosition[bx]
mov es, ScreenSegment
call DoNumeric
pupop es, cs
ret
DoNumeric:
;╒══════════════════════════════════════════════════════════════════════════╕
;│ Convert the value of AX into on On-Screen number ... │
;└──────────────────────────────────────────────────────────────────────────┘
mov cx, 10 ; divisor
DoADigit: zero dx ; clear the high side
div cx
add dl, "0" ; turn it into ASCII
mov es:[di], dl ; stuff an ascii digit
sub di, 2 ; back up 1 byte to the left
check ax
jnz DoADigit
ret
SaveScreenAndCursor:
;┌──────────────────────────────────────────────────────────────────────────┐
;│ Tuck the caller's screen and cursor away for safety │
;└──────────────────────────────────────────────────────────────────────────┘
mov cx, SCREEN_LENGTH / 2 ; save initial screen
zero si
mov di, OFFSET InitScreenBuffer
mov ds, ScreenSegment
rep movsw
pupop ds, cs
;────────────────────────────────────────────────────────────────────────────
mov ax, GET_CURSOR_POS*256 ; save prior cursor pos
zero bh
int VIDEO_IO
mov InvocationCursor, dx
;────────────────────────────────────────────────────────────────────────────
mov ax, SET_CURSOR_POS*256 ; and remove the cursor
zero bh ; (screen page 0)
mov dx, 25*256+0 ; line 26, column 0
int VIDEO_IO
ret
AllocateMemoryRegions:
;┌──────────────────────────────────────────────────────────────────────────┐
;│ Free up the system's RAM, then make the following regions: │
;│ 64K - for the piece positions. │
;└──────────────────────────────────────────────────────────────────────────┘
mov ah, DOS_SETBLOCK
mov bx, (TopOfStack-StartOfProg+15)/16
pupop es, cs
int DOS_FUNC ; reduce our allocation
ret
CountTicks:
;┌──────────────────────────────────────────────────────────────────────────┐
;│ Accumulate the total number of ticks accumulated │
;└──────────────────────────────────────────────────────────────────────────┘
pushf
bool cs:SingleStepping
iftrue TickCounted
inc cs:TickCount1
jnz TickCounted
inc cs:TickCount2
TickCounted: popf
jmp cs:[OldTimerVector] ; and proceed to Original Int8
OperatorCheck:
;┌──────────────────────────────────────────────────────────────────────────┐
;│ Accumulate the total number of tests performed ... │
;└──────────────────────────────────────────────────────────────────────────┘
bool Sound
iffalse IncCount
call ToggleSpeaker
IncCount: inc Count1
jnz Accumed
inc Count2
;────────────────────────────────────────────────────────────────────────────
Accumed: cmp bx, 8*2
jne NotDone
call AttentionSound
call AttentionSound
jmp SetPause
;────────────────────────────────────────────────────────────────────────────
NotDone: cmp bx, PausePoint
je SetPause
;────────────────────────────────────────────────────────────────────────────
CheckStep: bool SingleStepping
iftrue Pause
mov ah, GETKEY_NOWAIT
int KEYBOARD_IO
jnz Pause
ret
;════════════════════════════════════════════════════════════════════════════
SetPause: set SingleStepping
call AttentionSound
Pause: call ShowAllPieces
call WaitForKeyPress
call KeystrokeSound
;────────────────────────────────────────────────────────────────────────────
CheckPress: cmp al, ESC_
je Exit
cmp al, " "
jne NotSpace
set SingleStepping
ret
;────────────────────────────────────────────────────────────────────────────
NotSpace: cmp al, CR
jne NotCR
xor SingleStepping, 0FFh
jnz CheckStep
call WaitForClockTick
jmp CheckStep
;────────────────────────────────────────────────────────────────────────────
NotCR: cmp al, "9"
ja NotNumeric
cmp al, "0"
jb NotNumeric
sub al, "1" ; al = 0 to 8
double al
mov BYTE PTR PausePoint, al
jmp RefreshUs
;────────────────────────────────────────────────────────────────────────────
NotNumeric: cmp al, "a"
jae CheckAscii
add al, "a"-"A"
;────────────────────────────────────────────────────────────────────────────
CheckAscii: cmp al, "a"
jne SoundOnOff
xor Animation, 0FFh
RefreshUs: call RefreshScreen
jmp CheckStep
;────────────────────────────────────────────────────────────────────────────
SoundOnOff: cmp al, "s"
jne Update
xor Sound, 0FFh
jmp RefreshUs
;────────────────────────────────────────────────────────────────────────────
Update: cmp al, "u"
jne CheckStep
Call ShowAllPieces
jmp RefreshUs
RefreshScreen:
;┌──────────────────────────────────────────────────────────────────────────┐
;│ Shows the current state of the Animation, Sound, and Partial booleans │
;└──────────────────────────────────────────────────────────────────────────┘
mov es, ScreenSegment
bool Animation
mov di, (23*80+3)*2+1
call RefreshOne
;────────────────────────────────────────────────────────────────────────────
bool Sound
mov di, (21*80+34)*2+1
call RefreshOne
;────────────────────────────────────────────────────────────────────────────
mov al, BYTE PTR PausePoint
halve al ; 0-9
add al, "1" ; "0" - "9"
cmp al, 0B0h
jne ShowPause
mov al, "-"
ShowPause: mov di, (23*80+57)*2
mov es, ScreenSegment
stosb
pupop es, cs
ret
;────────────────────────────────────────────────────────────────────────────
RefreshOne: mov cx, 25
mov al, BRIGHT_ON_MAGENTA
mov si, OFFSET ONStatus
iftrue RefreshIt
mov al, DIM_ON_MAGENTA
mov si, OFFSET OFFStatus
RefreshIt: stosb
inc di
loop RefreshIt
sub di, 7
mov cx, 3
RefreshWord: movsb
inc di
loop RefreshWord
ret
;╒══════════════════════════════════════════════════════════════════════════╕
;│ Sound Generation Sub-System │
;╘══════════════════════════════════════════════════════════════════════════╛
KeystrokeSound: mov Period, 500 ; typing thunk sound
mov Duration, 18
jmp ToneBurst
;────────────────────────────────────────────────────────────────────────────
AttentionSound: mov Period, 1500 ; first period
mov DeltaFreq, 35 ; period change each half-cyc
mov Duration, 40 ; half-cycle count
jmp ToneSlide
;╒══════════════════════════════════════════════════════════════════════════╕
;│ Enter with "Period", "Duration" and "DeltaFreq" all set as needed... │
;└──────────────────────────────────────────────────────────────────────────┘
ToneBurst: mov DeltaFreq, 0
ToneSlide: pushf
push ax
cli
Call GetPhasorPos ; set initial angle
mov PhasorPosition, ax
NextCycle: mov ax, Period ; update the phasor angle
sub PhasorPosition, ax
GetCycleEnd: Call GetPhasorPos
sub ax, PhasorPosition
abs_ ax
cmp ax, 100
jae GetCycleEnd
Call ToggleSpeaker
mov ax, DeltaFreq
sub Period, ax
dec Duration
jnz NextCycle
sti
pop ax
ToneMade: popf
ret
;════════════════════════════════════════════════════════════════════════════
GetPhasorPos: mov al, 00000100B ; latch timer_0
outt TIMER_MODE, al
inn al, TIMER_0 ; LSB
xchg ah, al
inn al, TIMER_0 ; MSB
xchg ah, al ; finally form the count
ret
;════════════════════════════════════════════════════════════════════════════
ToggleSpeaker: inn al, SPEAKER_GATE
and al, NOT OSCILLATOR_GATE_BIT ; kill OSC Input
xor al, SPEAKER_DATA_BIT ; invert Spkr Data
outt SPEAKER_GATE, al
ret
WaitForClockTick:
;╒══════════════════════════════════════════════════════════════════════════╕
;│ Wait for a Timer Tick to occur │
;└──────────────────────────────────────────────────────────────────────────┘
sti
mov ax, TickCount1
KeepWaiting: cmp ax, TickCount1
je KeepWaiting
ret
ScreenDisplay:
;────────────────────────────────────────────────────────────────────────────
db " ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ "
db " Heuristic Combinatorial Cube Solver (c) 1990, Gibson Research Corporation "
db " ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ "
db " ┌──────┬──────┬──────┬── Pieces ───┬──────┬──────┬──────┐ Result "
db " 1 2 3 4 5 6 7 8 9 Cube "
db " █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ █▀▀▀▀▀▀▀▀█ "
db " █ █ █ █ "
db " █ █ █ █ "
db " █ █ █ █ "
db " █ █ █ █ "
db " █ █ █ █ "
db " █ █ █ █ "
db " █ █ █ █ "
db " █ █ █ █ "
db " █ █ █ █ "
db " █ █ █ █ "
db " █ █ █ █ "
db " █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█ █▄▄▄▄▄▄▄▄█ "
db " "
db " └──────┴──────┴──────┴─ Position ──┴──────┴──────┴──────┘ Moves: "
db " ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ Time: "
db " [ENTER] to Start / Stop [S] Sound Monitor ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ "
db " [SPACEBAR] to Stop / Step [U] Update Positions Press the ESC "
db " [A] Animate Screen [0-9] Pause at piece - - key to Exit. "
db " ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ "
NormalTermination:
;────────────────────────────────────────────────────────────────────────────
db CR,LF
db " █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█",CR,LF
db " █ Cubit terminated normally. █",CR,LF
db " █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█",CR,LF,"$"
;────────────────────────────────────────────────────────────────────────────
ONStatus: db "ON "
OFFStatus: db "OFF"
;┌──────────────────────────────────────────────────────────────────────────┐
;│ End of the CUBESYS.INC include file │
;└──────────────────────────────────────────────────────────────────────────┘